/* ==============================================================================
*
*   Copyright (c) 2010, Pierre Favier
*   All rights reserved.
*
*   NTasking is free software: you can redistribute it and/or modify it
*   under the terms of the GNU General Public License as published by the
*   Free Software Foundation.
*
*   Redistribution and use in source and binary forms, with or without
*   modification, are permitted provided that the following conditions
*   are met:
*
*   -   Redistributions of source code must retain the above copyright notice,
*       this list of conditions and the following disclaimer.
*
*   -   Redistributions in binary form must reproduce the above
*       copyright notice, this list of conditions and the following
*       disclaimer in the documentation and/or other materials
*       provided with the distribution.
*
*   THIS SOFTWARE IS PROVIDED "AS IS" AND ANY EXPRESS OR IMPLIED
*   WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
*   OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
*   DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS
*   BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
*   EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
*   TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
*   DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
*   ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
*   TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF
*   THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
*   SUCH DAMAGE.
*
* ============================================================================== */

using System;

namespace NTasking.ValidationTests.ACATS_3_0.Support
{

    public class Interlock : Protected
    {

        private int IntCount = 0;


        [Entry]
        public Action Post { get; private set; }

        [Entry]
        public Action Consume { get; private set; }


        public Interlock()
        {
            Entry(Post,
                When: () => true,
            Is: () =>
            {
                IntCount += 1;
            });

            Entry(Consume,
                When: () => IntCount > 0,
            Is: () =>
            {
                IntCount -= 1;
            });
        }

    }


    public class Counter : Protected
    {

        private new int Count = 0;


        [ReadWriteOperation]
        public Action Increment { get; private set; }

        [ReadWriteOperation]
        public Action Decrement { get; private set; }

        [ReadOnlyOperation]
        public Func<int> Number { get; private set; }


        public Counter()
        {
            ReadWriteOperation(Increment, Is: () =>
            {
                Count += 1;
            });

            ReadWriteOperation(Decrement, Is: () =>
            {
                Count -= 1;
            });

            ReadOnlyOperation(Number, Is: () =>
            {
                return Count;
            });
        }

    }

}
